Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1084 1621 (N42W00 L=284)  4140    839       11 ( 730/1483-1404/1730) -10.7 E33-W25 N33-N47
      2 1602 1507 (N36W44 L=328)  2921    356        4 (1464/1432-1771/1549)   0.0 W30-W65 N30-N39
      3  903 1191 (N12E09 L=275)  1934    456        4 ( 865/ 977- 927/1385) -87.6 E12-E06 S01-N23
      4  270 1187 (N07E55 L=229)  2377    365        4 ( 224/1021- 306/1362) -73.3 E62-E50 S03-N17
      5 1655 1276 (N21W43 L=327)  1017    235        2 (1598/1222-1710/1331) -50.2 W39-W48 N17-N24
      6  496 1285 (N15E37 L=247)   322     98        1 ( 453/1257- 547/1309)  15.9 E40-E33 N12-N16
      7  411 1206 (N09E42 L=241)   692    165        2 ( 381/1145- 452/1279) -63.4 E44-E38 N05-N13
      8  466  761 (S18E36 L=248)  1527    448        1 ( 420/ 564- 502/ 953)  79.1 E41-E33 S31-S05
      9  176  894 (S12E65 L=219)  1201    114        0 ( 132/ 851- 209/ 931) -15.3 E72-E60 S14-S09
     10  900  625 (S24E06 L=278)   455    137        0 ( 839/ 594- 961/ 662)  32.0 E09-E01 S25-S20
     11 1598  509 (S28W48 L=332)  6214    729       11 (1265/ 377-1862/ 627)  18.7 W23-W80 S39-S19
     12 1079  319 (S46W11 L=294)   367     65        0 (1044/ 303-1111/ 335)  31.0 W07-W13 S47-S43
     13  570  308 (S52E42 L=242)   475     55        0 ( 552/ 289- 594/ 333) -56.3 E45-E38 S53-S49
  

    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