Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  866 1880 (N73W31 L= 74)   705     87        1 ( 844/1844- 891/1914)  14.0 W23-W51 N68-N76
      2 1458 1642 (N32W51 L= 94)   323     91        0 (1439/1597-1479/1678)  18.4 W46-W56 N29-N33
      3 1648 1434 (N15W53 L= 96)   316     89        2 (1605/1412-1690/1453)  -6.3 W48-W57 N13-N15
      4  933 1318 (N26W01 L= 44)   662    332        2 ( 845/1185- 999/1435)  36.3 E07-W08 N20-N32
      5 1336 1358 (N19W27 L= 70)   216    113        0 (1288/1333-1384/1378)  -8.1 W23-W30 N18-N20
      6  547 1301 (N33E27 L= 16)   299     78        2 ( 520/1268- 570/1332) -59.0 E29-E25 N30-N35
      7 1743 1198 (S01W52 L= 95)   715    146        3 (1706/1136-1787/1260) -76.0 W48-W54 S05-N03
      8 1633 1109 (S02W40 L= 83)   302     87        0 (1588/1078-1666/1137) -45.0 W37-W42 S05-N00
      9  697 1076 (N17E19 L= 24)   236    107        0 ( 666/1033- 734/1110)  26.6 E21-E15 N14-N18
     10 1456  795 (S16W21 L= 64)   394    179        0 (1390/ 752-1525/ 847)  16.7 W16-W26 S17-S14
     11 1360  596 (S27W12 L= 54)   323     74        1 (1341/ 567-1380/ 640) -90.0 W10-W12 S28-S23
     12  491  512 (S14E48 L=355)   308    101        0 ( 464/ 474- 515/ 552)  26.6 E52-E44 S16-S11
     13  733  384 (S27E36 L=  7)  1217    279        1 ( 634/ 330- 852/ 441)   8.1 E46-E25 S29-S24
     14  455  420 (S20E57 L=346)   657    105        1 ( 402/ 398- 502/ 433) -12.5 E63-E53 S21-S18
  

    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