Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  862 1547 (N28E22 L=159)  3043    722       12 ( 654/1358-1132/1765) -20.8 E50-W00 N20-N39
      2  399 1550 (N19E59 L=122)  1013    153        6 ( 367/1468- 436/1614) -29.4 E66-E50 N14-N23
      3  409 1344 (N07E47 L=134)   295     67        1 ( 395/1305- 432/1372) -63.4 E48-E45 N04-N08
      4 1791 1254 (N28W54 L=235)   929    197        3 (1735/1181-1844/1330) -30.3 W47-W60 N23-N31
      5  463 1257 (N03E40 L=141)   499     75        2 ( 429/1224- 496/1282)  36.9 E43-E38 N00-N04
      6 1710 1189 (N22W44 L=225)   466    113        1 (1680/1142-1743/1236) -39.8 W41-W47 N19-N24
      7 1270 1118 (N09W13 L=194)   564    261        1 (1165/1085-1372/1191)  -8.1 W05-W19 N07-N11
      8 1089 1047 (N01W03 L=184)   540    184        0 (1004/1028-1176/1063)  12.5 E01-W08 N00-N03
      9  232  894 (S23E57 L=124)   730    174        2 ( 204/ 831- 269/ 985) -60.9 E60-E52 S26-S17
     10  960  742 (S19W01 L=182)   301     74        0 ( 941/ 706- 981/ 776)  90.0 W00-W02 S21-S16
     11  342  623 (S39E48 L=133)   776    119        1 ( 289/ 593- 405/ 669)  19.4 E56-E39 S42-S34
     12 1006  640 (S25W06 L=187)   234     74        0 ( 968/ 621-1040/ 654)   0.0 W03-W08 S25-S23
     13 1410  526 (S24W37 L=218)   377    137        2 (1366/ 485-1440/ 592)  82.9 W35-W38 S27-S19
     14 1647  510 (S20W58 L=239)   387    102        0 (1612/ 474-1678/ 547)  71.6 W56-W59 S22-S16
     15  870  362 (S48W04 L=185)   292     54        0 ( 842/ 335- 893/ 386) -31.0 W01-W06 S49-S45
  

    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