Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  716 1646 (N32E37 L=147)  2058    326        5 ( 633/1531- 797/1769) -27.4 E53-E26 N25-N39
      2  375 1550 (N19E61 L=123)  1111    106        3 ( 352/1496- 402/1604) -32.5 E66-E54 N15-N22
      3  949 1443 (N23E13 L=171)  1110    279        4 ( 823/1395-1070/1503)  -3.2 E22-E04 N20-N24
      4  432 1271 (N03E43 L=141)   593     92        3 ( 390/1243- 470/1309)  38.7 E46-E40 N01-N05
      5 1674 1202 (N22W41 L=225)   450    106        3 (1643/1148-1706/1250) -45.0 W38-W44 N19-N24
      6 1794 1219 (N25W53 L=237)   395     89        0 (1761/1180-1822/1241) -23.2 W49-W56 N23-N26
      7 1241 1120 (N08W11 L=195)   501    176        1 (1182/1096-1332/1162)   6.3 W07-W16 N07-N10
      8 1038 1057 (N01W00 L=184)   660    203        1 ( 957/1013-1127/1081)  32.0 E04-W05 S02-N03
      9  212  905 (S23E59 L=124)   502    134        1 ( 188/ 852- 243/ 966) -45.0 E62-E55 S25-S19
     10  910  751 (S19E02 L=182)   517    126        0 ( 880/ 700- 940/ 811)  82.9 E03-W00 S23-S15
     11  414  767 (S28E38 L=146)   274     61        0 ( 400/ 731- 425/ 799)  78.7 E39-E36 S30-S25
     12  963  649 (S25W03 L=187)   332     86        1 ( 916/ 626- 999/ 671)  -9.5 W00-W06 S26-S23
     13  314  628 (S40E52 L=132)   658     97        1 ( 274/ 604- 352/ 667)  21.0 E58-E45 S42-S36
     14 1368  527 (S24W34 L=218)   331     81        1 (1333/ 494-1399/ 566)  71.6 W32-W35 S27-S21
     15 1620  515 (S20W55 L=239)   428    113        0 (1577/ 475-1653/ 554)  71.6 W53-W56 S23-S17
  

    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