Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1288 1497 (N29W02 L= 87)  1115    259        1 (1199/1394-1334/1583) -36.9 E06-W07 N23-N33
      2 1072 1331 (N12E06 L= 79)   350    127        2 (1029/1279-1097/1372) -45.0 E08-E03 N09-N14
      3 1620 1236 (N24W30 L=116)   394     93        0 (1580/1195-1647/1258)   0.0 W27-W32 N22-N25
      4 1313 1183 (N11W12 L= 97)   707    291        0 (1202/1083-1357/1253) -21.0 W03-W16 N06-N13
      5 1595 1083 (N14W32 L=117)   256     48        0 (1579/1050-1612/1115) -76.0 W30-W32 N12-N16
      6 1693  984 (N12W42 L=127)   627    168        0 (1676/ 913-1722/1059) -69.4 W39-W45 N08-N16
      7 1797  993 (N16W51 L=136)  1034    168        2 (1743/ 924-1849/1047) -12.1 W44-W58 N14-N17
      8 1671  458 (S16W66 L=151)  2173    274        6 (1629/ 370-1718/ 564) -52.4 W60-W74 S21-S08
      9 1213  515 (S28W28 L=114)   408     77        0 (1174/ 498-1254/ 530)  45.0 W25-W31 S30-S26
     10  757  492 (S45E00 L= 85)   254     41        2 ( 740/ 470- 782/ 512)  71.6 E01-W01 S46-S43
     11  628  478 (S51E11 L= 74)   510     66        1 ( 600/ 454- 659/ 510) -26.6 E13-E06 S52-S48
     12 1564  394 (S23W61 L=147)   508     82        2 (1541/ 355-1597/ 425) -78.7 W58-W65 S25-S20
     13 1192  362 (S38W37 L=122)   531    137        0 (1138/ 316-1251/ 408)  90.0 W35-W38 S42-S33
     14 1376  365 (S31W49 L=134)   594    144        0 (1318/ 339-1448/ 389)  49.4 W45-W52 S34-S27
     15 1451  297 (S32W62 L=147)  1182    176        2 (1415/ 241-1487/ 362) -14.7 W55-W75 S34-S27
  

    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