Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  504 1704 (N21E58 L=250)   486    138        0 ( 482/1673- 525/1732) -29.7 E62-E54 N18-N22
      2  341 1488 (N04E60 L=248)  1151    238        6 ( 307/1420- 385/1539)  90.0 E64-E56 N00-N07
      3 1661 1441 (N39W31 L=339)   318     43        1 (1639/1418-1677/1458)   0.0 W28-W32 N37-N40
      4  461 1167 (S12E38 L=270)   674    191        0 ( 390/1105- 533/1244)  57.5 E41-E34 S17-S06
      5  430 1032 (S21E37 L=271)   383    139        0 ( 390/ 985- 488/1057)  40.6 E39-E32 S24-S18
      6  907  915 (S15E04 L=305)   295    106        2 ( 892/ 873- 932/ 980) -63.4 E05-E01 S17-S11
      7 1826  873 (N11W57 L=  5)   615    101        0 (1802/ 824-1849/ 917)  90.0 W55-W59 N07-N13
      8 1865  858 (N11W62 L= 10)   510    106        1 (1836/ 827-1889/ 905)  80.5 W60-W64 N08-N14
      9  850  866 (S19E06 L=303)   286    122        0 ( 784/ 832- 907/ 886)   7.1 E09-E01 S20-S18
     10  857  787 (S24E03 L=305)   261    103        0 ( 804/ 764- 912/ 818)   9.5 E06-W00 S24-S22
     11  385  668 (S45E36 L=272)  1303    385        1 ( 288/ 607- 502/ 780)  39.0 E47-E26 S50-S33
     12 1686  549 (S11W59 L=  8)  1208    242        5 (1645/ 496-1736/ 625) -54.5 W54-W65 S14-S07
     13 1773  526 (S09W72 L= 20)   751    157        2 (1754/ 500-1793/ 557)  -6.3 W68-W77 S10-S06
     14 1489  287 (S31W61 L=  9)  1228    295        4 (1428/ 252-1541/ 327)   8.1 W53-W67 S32-S28
  

    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