Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1193 1694 (N48W24 L= 48)   557     86        2 (1161/1646-1217/1725)  81.9 W22-W26 N43-N50
      2 1592 1424 (N23W46 L= 69)   822    171        0 (1534/1353-1645/1475) -60.9 W42-W48 N18-N27
      3  260 1413 (N34E65 L=318)  1198    101        2 ( 229/1380- 304/1451) -13.2 E74-E57 N31-N36
      4 1441 1342 (N20W31 L= 54)   313    109        1 (1398/1307-1490/1362)   7.1 W27-W35 N18-N21
      5 1133 1058 (N06W07 L= 30)   259     85        1 (1080/1043-1163/1080)   0.0 W03-W08 N05-N07
      6 1356 1022 (N02W20 L= 44)   364    109        1 (1317/ 983-1389/1070)  38.7 W17-W23 N00-N04
      7 1908 1015 (S06W70 L= 93)   673     64        3 (1891/ 975-1928/1046)  76.0 W67-W74 S08-S04
      8 1874  947 (S10W64 L= 87)  3732    240        6 (1825/ 844-1935/1032)  61.4 W57-W76 S15-S04
      9  316  840 (S02E51 L=332)   479    101        0 ( 282/ 798- 340/ 882) -45.0 E53-E49 S04-N00
     10  245  705 (S10E63 L=321)  2335    283        3 ( 198/ 580- 321/ 809) -71.6 E67-E58 S18-S03
     11 1560  754 (S17W33 L= 56)   242    103        0 (1537/ 716-1575/ 789) -78.7 W31-W34 S19-S14
     12 1505  746 (S17W29 L= 52)   272     70        0 (1484/ 712-1532/ 778)  45.0 W27-W31 S18-S14
     13  275  756 (S07E57 L=326)   352     72        0 ( 244/ 734- 308/ 777)  -8.1 E60-E53 S08-S05
     14  415  704 (S11E45 L=338)   456    104        3 ( 383/ 673- 439/ 753)  51.3 E47-E42 S12-S07
     15  775  671 (S15E19 L=  4)   459    173        2 ( 722/ 636- 829/ 722) -39.8 E22-E15 S17-S11
     16  868  609 (S19E14 L=  9)   540    173        0 ( 798/ 571- 908/ 673)  35.5 E18-E10 S21-S15
     17  956  438 (S32E11 L= 12)  3804    805        2 ( 728/ 219-1259/ 642)  27.0 E39-W11 S50-S20
     18  543  608 (S17E37 L=346)   359     77        1 ( 507/ 585- 586/ 629) -18.4 E39-E33 S18-S15
     19 1604  607 (S28W38 L= 62)   287     58        1 (1571/ 588-1634/ 629)  11.3 W35-W41 S28-S26
     20  606  525 (S23E34 L=349)   624    131        2 ( 585/ 467- 623/ 601)  60.9 E37-E31 S27-S18
     21 1693  532 (S35W51 L= 74)  1125    123        2 (1625/ 506-1750/ 560)  -3.6 W42-W58 S37-S32
     22  575  417 (S31E42 L=342)  1474    346        2 ( 478/ 327- 687/ 535) -60.6 E45-E35 S38-S22
     23 1052  394 (S37E05 L= 18)   445    113        3 ( 993/ 379-1108/ 413) -14.0 E08-W00 S38-S35
  

    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