Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  770 1611 (N21E32 L=309)   241     15        0 ( 750/1593- 792/1628)  45.0 E33-E30 N19-N21
      2  529 1532 (N11E45 L=297)   820    226        2 ( 480/1461- 565/1604) -30.3 E51-E39 N06-N14
      3  437 1219 (S09E41 L=301)   266     86        0 ( 406/1178- 454/1258) -78.7 E42-E39 S12-S07
      4  271 1106 (S19E52 L=289)  1346    433        1 ( 154/1068- 400/1161)   4.8 E65-E41 S21-S15
      5  935 1051 (S08E06 L=336)   235     72        1 ( 898/1026- 978/1072)  36.9 E07-E03 S09-S06
      6  441 1037 (S20E36 L=305)   607    176        0 ( 368/1020- 516/1055)  15.3 E41-E30 S21-S18
      7 1878  927 (N13W61 L= 42)   740    100        2 (1855/ 894-1904/ 960) -53.1 W57-W63 N10-N14
      8 1906  869 (N11W67 L= 48)  1225    211        5 (1878/ 824-1944/ 922)  69.4 W62-W72 N07-N15
      9  323  814 (S35E43 L=298)   455    129        0 ( 274/ 792- 372/ 836)   5.7 E48-E38 S36-S34
     10 1581  586 (S15W48 L= 29)   797    181        0 (1560/ 505-1605/ 673) -63.4 W44-W51 S19-S09
     11  348  602 (S49E42 L=299)   586    176        0 ( 301/ 569- 393/ 637)  32.5 E48-E37 S52-S45
     12 1276  480 (S30W33 L= 14)  2481    618        3 (1009/ 422-1552/ 547)  17.1 W13-W52 S35-S22
     13 1651  478 (S18W60 L= 41)   596    101        3 (1623/ 450-1678/ 515) -76.0 W56-W62 S19-S15
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y