Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1345 1792 (N45W43 L= 19)   385     64        1 (1307/1767-1369/1808) -56.3 W39-W47 N43-N46
      2 1216 1544 (N29W20 L=356)   425    126        0 (1162/1514-1277/1562)   6.3 W15-W24 N27-N29
      3  764 1517 (N33E12 L=324)   395    121        2 ( 701/1493- 816/1537) -24.0 E16-E07 N30-N34
      4 1763 1370 (N12W57 L= 33)  1135    230        2 (1709/1267-1808/1473) -90.0 W54-W59 N05-N18
      5  311 1413 (N32E50 L=286)   330     70        0 ( 288/1384- 339/1446)  36.9 E52-E47 N30-N33
      6  340 1314 (N25E45 L=291)   301     66        0 ( 307/1299- 373/1336)   9.5 E47-E41 N23-N26
      7 1300 1282 (N11W20 L=356)   349     62        3 (1266/1258-1336/1312) -26.6 W17-W21 N09-N13
      8  740 1251 (N16E15 L=321)   585    171        2 ( 654/1205- 814/1289)  15.3 E20-E09 N13-N17
      9 1818 1111 (S04W56 L= 31)  2274    311        4 (1712/1002-1887/1223) -45.0 W47-W63 S11-N03
     10  188  983 (N07E60 L=276)  2102    242        5 (  94/ 935- 301/1023)  -4.4 E74-E48 N02-N09
     11 1559  958 (S10W33 L=  8)   298     82        1 (1527/ 935-1600/ 985) -31.0 W30-W35 S11-S08
     12 1862  835 (S21W61 L= 37)  3316    245        8 (1808/ 730-1902/ 950)  72.9 W55-W67 S27-S14
     13  676  928 (S02E22 L=314)   224     81        0 ( 631/ 910- 702/ 949) -36.9 E24-E20 S03-N00
     14 1629  882 (S16W37 L= 13)   280     71        1 (1611/ 844-1646/ 913)  76.0 W36-W38 S18-S13
     15 1152  637 (S25W03 L=339)  3439    990        5 ( 716/ 518-1550/ 829)   8.8 E27-W31 S29-S17
     16  532  557 (S23E40 L=296)  1850    342        4 ( 469/ 470- 581/ 700)  38.7 E48-E33 S28-S13
     17 1817  617 (S35W62 L= 38)  2183    178        5 (1765/ 556-1872/ 677) -14.6 W52-W75 S39-S30
     18  266  653 (S13E60 L=276)   449     50        1 ( 243/ 629- 292/ 674)   8.1 E63-E56 S14-S12
     19  362  596 (S18E53 L=283)   311     85        0 ( 345/ 576- 389/ 636) -76.0 E54-E50 S19-S15
     20 1644  538 (S39W43 L= 19)   963    192        4 (1575/ 485-1731/ 603)  32.5 W36-W51 S41-S34
     21  582  375 (S35E45 L=291)  1397    262        5 ( 508/ 281- 662/ 472)  22.5 E62-E33 S41-S28
     22 1289  419 (S42W12 L=348)   830    245        0 (1196/ 394-1398/ 452)  -6.7 W04-W21 S44-S40
     23  770  215 (S51E42 L=294)  1453    119        2 ( 728/ 171- 834/ 254)   6.3 E52-E33 S54-S47
  

    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