Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  774 1829 (N38E51 L=149)   617     86        0 ( 740/1811- 820/1847)   7.1 E55-E47 N35-N39
      2  658 1728 (N27E50 L=151)   675     51        1 ( 629/1699- 698/1753)   0.0 E54-E46 N24-N28
      3  932 1727 (N35E31 L=170)   346     65        1 ( 903/1699- 957/1751)  -9.5 E33-E27 N33-N36
      4  487 1658 (N18E59 L=142)   452     63        1 ( 456/1635- 513/1686)  53.1 E60-E56 N16-N20
      5  703 1604 (N20E38 L=163)   274     99        0 ( 689/1572- 732/1657) -35.5 E41-E34 N18-N23
      6  671 1559 (N16E38 L=163)   306     46        1 ( 648/1537- 700/1582)   0.0 E40-E35 N14-N17
      7  640 1508 (N12E38 L=163)   374     66        2 ( 605/1479- 666/1538)  76.0 E39-E35 N10-N14
      8 1618 1374 (N33W29 L=230)   782    199        0 (1566/1300-1646/1465) -45.0 W23-W31 N28-N38
      9  532 1292 (S03E37 L=164)  1324    269        1 ( 458/1198- 591/1406)  81.3 E39-E34 S09-N04
     10 1473 1312 (N24W19 L=219)   768    180        4 (1422/1224-1500/1386) -41.6 W13-W22 N19-N28
     11  373 1303 (S06E49 L=151)   992    152        2 ( 355/1217- 399/1374) -48.4 E53-E45 S10-S01
     12 1798 1331 (N38W49 L=250)   516     62        0 (1785/1295-1816/1361)  50.2 W47-W52 N34-N40
     13  224 1284 (S10E64 L=137)   935    125        0 ( 190/1223- 267/1345)  58.0 E67-E60 S13-S05
     14 1196 1234 (N11W04 L=205)   380    101        1 (1155/1193-1239/1275) -15.9 W00-W07 N09-N12
     15 1435 1180 (N15W19 L=220)   257     80        0 (1398/1149-1469/1205)  -9.5 W16-W22 N14-N15
     16  593  985 (S19E24 L=176)  1009    238        0 ( 513/ 902- 682/1078)  63.4 E28-E20 S25-S11
     17 1844  862 (N11W61 L=262)   402     37        0 (1824/ 845-1864/ 884)   0.0 W58-W64 N09-N12
     18 1205  796 (S13W17 L=217)   918    293        3 (1113/ 749-1316/ 838)  45.0 W11-W22 S17-S07
     19 1335  786 (S09W24 L=225)   212     77        0 (1305/ 762-1369/ 811) -11.3 W21-W26 S10-S08
     20 1321  757 (S11W25 L=225)   215     55        0 (1299/ 741-1350/ 779)   0.0 W22-W26 S12-S10
     21  919  655 (S29W05 L=206)  1239    362        1 ( 782/ 617-1087/ 723)  14.7 E05-W14 S31-S23
     22  772  381 (S52W06 L=206)   868    211        0 ( 678/ 355- 868/ 426)   9.5 E04-W14 S54-S49
  

    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