Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1435 1689 (N31W49 L=296)   746     95        1 (1393/1667-1486/1719) -56.3 W45-W52 N28-N34
      2  526 1551 (N47E25 L=222)   383     45        0 ( 497/1529- 560/1567)   0.0 E27-E21 N45-N48
      3 1403 1537 (N23W37 L=284)   436     80        1 (1367/1512-1445/1566) -59.0 W34-W39 N20-N25
      4  388 1522 (N49E40 L=206)   628     91        1 ( 362/1480- 422/1564)  63.4 E43-E36 N45-N51
      5 1302 1504 (N24W29 L=276)   257     60        1 (1275/1475-1333/1525) -33.7 W27-W31 N22-N25
      6  904 1460 (N31W03 L=250)  1063    286        2 ( 767/1438-1042/1479) -15.5 E06-W12 N28-N33
      7 1405 1419 (N16W33 L=279)   418    193        0 (1326/1373-1471/1469)   9.5 W26-W38 N15-N17
      8 1184 1192 (N09W13 L=259)  1003    324        4 (1060/1155-1341/1238) -17.4 W05-W21 N04-N12
      9 1804 1078 (S12W52 L=299)   375     60        0 (1786/1052-1824/1112) -76.0 W50-W54 S13-S09
     10 1912 1056 (S16W65 L=312)   462     59        1 (1890/1030-1928/1086)  31.0 W61-W68 S17-S14
     11  329 1001 (N16E45 L=202)  1114    230        4 ( 245/ 914- 418/1062) -34.7 E52-E39 N09-N20
     12  550  813 (N01E32 L=214)   271     71        1 ( 532/ 772- 565/ 855)  56.3 E34-E31 N00-N03
     13 1060  797 (S10E03 L=244)   430     87        3 (1031/ 751-1094/ 835)  53.1 E04-W00 S12-S08
     14  672  669 (S09E29 L=218)   232     66        0 ( 661/ 626- 683/ 707)  63.4 E30-E27 S11-S07
     15 1657  654 (S34W35 L=281)   609     99        2 (1607/ 620-1700/ 698)  29.7 W30-W38 S35-S31
     16 1035  662 (S17E08 L=239)   343    113        2 ( 992/ 629-1078/ 694) -51.3 E09-E05 S20-S14
     17  626  597 (S13E34 L=213)   298     97        1 ( 571/ 568- 673/ 621)  -8.1 E37-E30 S13-S11
     18  391  582 (S09E52 L=195)   493    105        3 ( 344/ 544- 428/ 615) -68.2 E54-E48 S11-S06
     19  522  573 (S12E42 L=205)   263     85        0 ( 503/ 542- 552/ 606) -90.0 E43-E39 S14-S09
     20  349  440 (S17E66 L=181)   573     44        3 ( 324/ 416- 370/ 463)   0.0 E70-E61 S18-S15
     21  570  340 (S27E52 L=195)  2013    311       10 ( 459/ 293- 710/ 436)   6.9 E68-E35 S29-S23
     22  972  237 (S45E29 L=217)  1465    184        2 ( 890/ 192-1051/ 291)   6.3 E39-E20 S47-S41
  

    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