Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  737 1820 (N37E46 L=274)   493     52        0 ( 709/1807- 768/1837)   0.0 E48-E42 N35-N38
      2  566 1477 (N09E39 L=281)  2414    513        5 ( 517/1259- 631/1686) -63.4 E45-E30 S03-N23
      3  329 1527 (N09E62 L=258)   540    149        3 ( 280/1498- 371/1545)  12.5 E67-E57 N06-N10
      4  255 1483 (N05E69 L=251)   936    196        3 ( 220/1452- 284/1509) -11.3 E78-E63 N03-N07
      5 1799 1456 (N43W48 L=  8)   545    115        1 (1780/1426-1826/1475)  45.0 W45-W52 N39-N45
      6 1681 1373 (N31W35 L=355)   406    104        0 (1635/1351-1722/1390)   7.1 W30-W38 N30-N32
      7 1372 1273 (N15W14 L=334)   382    125        0 (1337/1210-1401/1345) -45.0 W10-W17 N12-N18
      8  227 1179 (S14E58 L=261)  2718    614        7 ( 133/1100- 369/1285)  14.6 E68-E45 S18-S07
      9 1408 1075 (N05W21 L=340)   261     73        2 (1368/1049-1437/1095)  26.6 W18-W22 N03-N06
     10 1757  972 (N09W48 L=  8)   501     88        0 (1736/ 930-1778/1025) -38.7 W44-W50 N07-N11
     11  786  908 (S19E11 L=309)   298    113        0 ( 738/ 889- 852/ 921)  33.7 E13-E07 S21-S17
     12 1483  688 (S14W37 L=356)   504    111        0 (1427/ 648-1536/ 737)  63.4 W34-W38 S17-S09
     13 1692  593 (S13W57 L= 17)   350     94        2 (1675/ 553-1713/ 637) -78.7 W54-W58 S14-S09
     14 1704  553 (S14W60 L= 20)   889    175        4 (1652/ 488-1747/ 619)  90.0 W57-W63 S18-S09
     15 1587  426 (S25W57 L= 17)  1596    257        5 (1534/ 389-1646/ 474)  40.6 W50-W62 S27-S21
  

    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