Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  645 1652 (N41E39 L=169)  1438    265        2 ( 597/1522- 676/1759) -35.3 E54-E30 N31-N48
      2 1113 1454 (N30W03 L=211)  1826    614        2 ( 948/1277-1350/1572) -29.7 E09-W19 N19-N37
      3  400 1390 (N20E49 L=159)   597    139        0 ( 382/1337- 429/1468) -41.6 E54-E44 N16-N25
      4 1770 1171 (N15W54 L=262)  1113    190        2 (1736/1092-1801/1248)  73.3 W50-W57 N10-N20
      5 1840 1075 (N09W62 L=269)   570     88        0 (1811/1042-1865/1116)  29.7 W57-W65 N07-N12
      6 1752  856 (S04W53 L=261)   491     21        0 (1731/ 833-1774/ 878)  45.0 W50-W55 S05-S02
      7  965  752 (S15E02 L=206)   269     49        2 ( 945/ 719- 982/ 782)  90.0 E03-W00 S17-S13
      8 1856  748 (S11W70 L=278)   803     59        2 (1827/ 729-1883/ 765)  14.0 W65-W76 S12-S09
      9 1846  687 (S15W72 L=279)   748     93        2 (1833/ 644-1865/ 724) -29.1 W67-W78 S17-S12
     10 1169  675 (S19W12 L=220)   235     83        0 (1147/ 634-1193/ 711)  68.2 W10-W13 S21-S16
     11 1751  647 (S18W59 L=267)   705     46        1 (1723/ 622-1781/ 670) -12.5 W55-W64 S19-S16
     12  280  587 (S33E63 L=145)   521     53        1 ( 246/ 576- 313/ 598)   0.0 E68-E57 S33-S31
     13 1218  578 (S25W16 L=224)   274     76        0 (1181/ 564-1262/ 594)  18.4 W13-W19 S25-S23
     14  898  495 (S33E05 L=203)   287     86        0 ( 858/ 480- 941/ 514)  18.4 E08-E02 S34-S31
     15 1082  425 (S37W09 L=217)   379    114        0 (1028/ 406-1141/ 443)  20.6 W05-W13 S39-S35
  

    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