Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  652 1750 (N32E46 L= 94)   698     90        2 ( 631/1695- 668/1800) -38.7 E50-E40 N28-N36
      2 1472 1687 (N47W20 L=160)   431     69        1 (1438/1667-1512/1702)  20.6 W16-W24 N44-N49
      3 1033 1677 (N34E14 L=126)   298     59        0 ( 998/1661-1063/1694)  45.0 E16-E12 N32-N35
      4  504 1628 (N21E50 L= 90)   630    127        0 ( 453/1588- 567/1674)  54.5 E53-E46 N18-N25
      5  776 1530 (N19E26 L=114)  1746    411        8 ( 670/1392- 909/1652) -29.5 E36-E13 N12-N25
      6  540 1527 (N15E42 L= 98)   798    223        2 ( 518/1420- 568/1626) -55.3 E46-E37 N08-N21
      7 1294 1483 (N26W08 L=148)   488     91        1 (1277/1443-1316/1537) -80.5 W06-W09 N23-N29
      8 1464 1437 (N27W20 L=160)   322    119        0 (1439/1379-1490/1488) -60.3 W17-W22 N23-N30
      9  914 1453 (N16E15 L=125)   236     55        0 ( 885/1435- 944/1469)  14.0 E16-E12 N15-N17
     10  930 1391 (N13E12 L=128)   281     86        1 ( 887/1364- 957/1425)  53.1 E14-E11 N10-N15
     11  500 1304 (N01E38 L=102)   242     45        1 ( 486/1278- 522/1329) -63.4 E39-E36 N00-N02
     12 1859 1052 (N14W58 L=198)  2132    344        3 (1813/ 913-1903/1182) -49.4 W51-W65 N06-N20
     13 1036 1068 (S04E00 L=140)   261     69        0 (1003/1045-1069/1091)  26.6 E01-W01 S05-S02
     14  660 1023 (S13E22 L=118)   399    146        0 ( 609/ 966- 710/1054)  39.8 E24-E18 S17-S10
     15  749 1000 (S13E16 L=124)   261     43        0 ( 725/ 972- 768/1023) -33.7 E17-E14 S14-S11
     16  654  911 (S20E21 L=119)   264     80        0 ( 630/ 878- 685/ 952) -45.0 E22-E18 S21-S17
     17  449  851 (S27E35 L=105)   729    180        3 ( 372/ 795- 502/ 902) -26.6 E41-E30 S29-S24
     18 1135  828 (S16W10 L=150)   299     88        1 (1085/ 808-1170/ 857)  31.0 W07-W12 S17-S13
     19  394  731 (S35E40 L=100)   367     59        0 ( 370/ 706- 424/ 757) -21.8 E42-E37 S36-S33
     20 1190  579 (S29W21 L=161)  1162    330        1 (1035/ 523-1324/ 613)   5.4 W10-W31 S32-S27
     21  602  531 (S45E22 L=118)  1169    188        3 ( 530/ 504- 699/ 568)  17.4 E29-E13 S47-S40
     22 1662  501 (S22W60 L=200)  1100    262        0 (1575/ 460-1740/ 557)  45.0 W53-W66 S26-S16
     23 1264  434 (S36W32 L=172)   752    130        1 (1214/ 390-1323/ 475)  63.4 W29-W34 S40-S32
     24  869  339 (S54W06 L=146)   303     32        0 ( 845/ 321- 888/ 363)  76.0 W04-W08 S55-S51
     25  669  260 (S67E16 L=123)   886    157        0 ( 589/ 232- 739/ 288)   0.0 E30-E04 S69-S65
  

    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