Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  984 1828 (N61W29 L=199)   536     92        0 ( 948/1795-1026/1858)   7.6 W22-W37 N59-N62
      2 1285 1798 (N48W51 L=221)   455     63        2 (1256/1762-1308/1821)  15.3 W46-W57 N45-N49
      3 1011 1681 (N48W18 L=188)  1244    183        3 ( 928/1625-1089/1721)  -3.6 W10-W26 N44-N50
      4  403 1588 (N56E50 L=120)   746     90        2 ( 367/1557- 447/1606)  -4.1 E57-E42 N53-N57
      5  935 1498 (N37W05 L=175)   273     79        0 ( 897/1481- 978/1513) -26.6 W02-W08 N35-N38
      6 1174 1448 (N29W20 L=190)   639    131        2 (1133/1392-1208/1495)  81.9 W16-W23 N24-N31
      7 1749 1391 (N10W60 L=230)   429     48        1 (1719/1365-1774/1412) -31.0 W57-W62 N08-N12
      8  385 1341 (N38E42 L=128)  1088    155        3 ( 332/1280- 442/1403)  24.4 E47-E36 N33-N41
      9  563 1354 (N36E25 L=145)   251     67        0 ( 537/1328- 605/1372)   0.0 E27-E21 N34-N36
     10 1515 1287 (N11W36 L=206)  1608    279        3 (1404/1202-1619/1364) -54.5 W31-W41 N04-N18
     11  307 1054 (N21E49 L=121)  1343    260        1 ( 272/ 932- 349/1172) -76.0 E52-E46 N12-N28
     12 1295  964 (S02W14 L=184)   410    144        0 (1269/ 895-1324/1029)  50.2 W12-W17 S05-N01
     13  797  880 (N03E16 L=154)   223     64        0 ( 784/ 842- 811/ 915)  68.2 E17-E14 N00-N05
     14 1542  826 (S16W28 L=198)   503    119        0 (1498/ 774-1576/ 876)  33.7 W24-W30 S17-S13
     15  259  764 (N04E59 L=111)  1589    232        2 ( 233/ 669- 287/ 874)  67.4 E64-E54 S02-N10
     16  300  794 (N05E54 L=116)   455     44        2 ( 278/ 767- 321/ 823) -90.0 E55-E51 N03-N06
     17 1630  733 (S24W34 L=204)   306     45        0 (1607/ 706-1652/ 758)  36.9 W31-W35 S25-S22
     18 1092  539 (S24E06 L=164)  1252    261        0 (1025/ 432-1157/ 656)  45.0 E13-W00 S29-S16
     19  686  515 (S17E32 L=138)   442     92        2 ( 646/ 492- 714/ 551) -11.3 E35-E30 S18-S15
     20  472  443 (S19E53 L=117)  3596    333        7 ( 372/ 347- 567/ 535) -74.1 E62-E43 S26-S11
     21  794  465 (S22E27 L=143)   393    104        2 ( 769/ 422- 818/ 503)  63.4 E30-E25 S25-S19
     22  658  305 (S32E46 L=124)  1964    288        4 ( 585/ 224- 758/ 424)  21.2 E62-E31 S38-S24
     23 1174  350 (S40E06 L=164)   480     80        1 (1138/ 332-1211/ 374) -21.8 E08-E03 S41-S36
     24 1315  249 (S54W02 L=172)  1714    250        3 (1196/ 209-1418/ 297)   0.0 E09-W13 S56-S51
  

    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