Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  810 1810 (N62W16 L=124)   346     59        1 ( 791/1782- 832/1841)  29.1 W12-W22 N59-N64
      2 1080 1741 (N46W31 L=139)   322     73        2 (1061/1706-1113/1773)  20.6 W27-W35 N43-N47
      3 1325 1631 (N30W39 L=147)   744    201        1 (1259/1559-1382/1688)  84.8 W36-W41 N24-N35
      4  829 1633 (N46W06 L=114)   350    105        1 ( 780/1611- 885/1653) -12.5 W01-W10 N45-N47
      5  816 1290 (N25E05 L=102)   304    100        1 ( 791/1247- 842/1337) -81.9 E07-E04 N21-N28
      6  240 1076 (N25E54 L= 54)   652     75        1 ( 218/1039- 279/1116) -45.0 E56-E49 N23-N28
      7  867 1070 (N11E08 L=100)   180     45        0 ( 854/1043- 879/1100)  71.6 E08-E06 N09-N12
      8  148 1018 (N23E67 L= 41)  1551    168        3 ( 113/ 959- 194/1089) -36.9 E73-E60 N19-N28
      9  979  785 (S08E08 L= 99)   604    183        1 ( 937/ 703-1028/ 862)  37.9 E12-E03 S11-S03
     10  230  710 (N04E64 L= 44)   433     72        0 ( 211/ 678- 253/ 745) -63.4 E65-E61 N02-N06
     11 1678  605 (S39W35 L=143)   312     34        0 (1653/ 591-1703/ 618) -26.6 W32-W38 S40-S37
     12  990  475 (S26E17 L= 91)   409     77        2 ( 961/ 456-1031/ 507) -53.1 E19-E15 S28-S24
     13  765  408 (S25E34 L= 74)   371    117        0 ( 707/ 395- 822/ 422)  -6.3 E38-E29 S26-S23
     14 1153  201 (S54E23 L= 85)   483     40        0 (1125/ 182-1181/ 216)   0.0 E25-E18 S55-S51
     15 1059  132 (S57E40 L= 68)   552     34        1 (1036/ 111-1076/ 156)  56.3 E45-E34 S60-S54
  

    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