Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1646 1653 (N25W72 L= 63)  1448    200        0 (1574/1605-1724/1703) -50.7 W66-W79 N19-N30
      2 1525 1565 (N25W51 L= 41)   735    140        0 (1505/1497-1544/1620)  31.0 W46-W56 N21-N28
      3 1187 1545 (N34W26 L= 16)   872    175        0 (1108/1493-1257/1576) -56.3 W21-W28 N28-N37
      4  910 1274 (N24E01 L=349)   347     91        2 ( 889/1236- 928/1319)  68.2 E02-W00 N21-N27
      5 1222 1258 (N16W17 L=  8)   771    245        0 (1121/1194-1314/1319) -50.7 W12-W21 N10-N21
      6  803 1170 (N20E10 L=340)   320    108        1 ( 779/1126- 826/1209)  53.1 E12-E08 N18-N22
      7  485 1030 (N18E34 L=316)   687    167        0 ( 467/ 950- 507/1102)  66.0 E36-E31 N13-N22
      8 1315  993 (S01W16 L=  6)   302    112        0 (1281/ 944-1357/1023)  26.6 W13-W19 S03-N00
      9  169  810 (N09E71 L=279)   996     88        0 ( 124/ 793- 216/ 826)   0.0 E83-E63 N07-N09
     10 1227  666 (S19W04 L=354)   708    245        0 (1147/ 613-1266/ 761)  49.4 E01-W06 S21-S12
     11 1448  654 (S25W18 L=  8)  1188    308        2 (1326/ 581-1579/ 728)   5.7 W08-W28 S27-S22
     12  868  534 (S19E21 L=329)   274    109        0 ( 850/ 485- 880/ 591)  60.3 E23-E19 S21-S14
     13  642  295 (S31E51 L=300)  1695    250        3 ( 619/ 173- 672/ 414)  35.0 E72-E40 S43-S22
  

    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