Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  720 1834 (N57E52 L=310)  1497    142        1 ( 680/1777- 776/1861) -77.5 E60-E45 N51-N60
      2  855 1606 (N39E19 L=342)  1079    188        2 ( 791/1571- 947/1646) -12.1 E24-E10 N35-N41
      3  384 1523 (N28E58 L=304)   680    114        1 ( 348/1493- 428/1560) -15.9 E65-E51 N26-N30
      4 1312 1453 (N31W17 L= 19)   417    142        0 (1289/1403-1351/1500) -56.3 W15-W20 N28-N34
      5 1091 1449 (N29W01 L=  2)   254     57        1 (1071/1433-1119/1476) -45.0 W00-W03 N28-N31
      6  231 1418 (N20E72 L=289)  1282     94        3 ( 209/1380- 259/1460) -14.0 E83-E65 N17-N21
      7 1484 1397 (N29W31 L= 32)   368     82        0 (1448/1371-1520/1426) -26.6 W27-W33 N27-N30
      8  606 1346 (N19E31 L=330)   429    165        1 ( 544/1287- 650/1393) -31.0 E36-E26 N15-N21
      9 1700 1183 (N16W47 L= 48)   311     58        0 (1685/1144-1716/1208) -90.0 W45-W48 N13-N17
     10 1140 1092 (N07W07 L=  8)   585    156        3 (1091/1039-1199/1152)  54.5 W03-W10 N03-N11
     11  905  837 (S10E06 L=355)   298    107        1 ( 864/ 806- 943/ 879) -38.7 E08-E03 S12-S07
     12 1703  649 (S17W54 L= 55)   483     54        1 (1673/ 622-1728/ 673)  -8.1 W50-W57 S19-S15
     13 1457  557 (S25W35 L= 36)   464    100        1 (1404/ 539-1507/ 583)  -5.7 W29-W39 S25-S23
     14 1364  391 (S38W34 L= 35)   308     33        0 (1338/ 379-1392/ 404)   0.0 W31-W36 S38-S36
  

    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