Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1651 1508 (N18W53 L=185)  1690    266        0 (1546/1455-1768/1574) -29.4 W46-W63 N13-N23
      2  373 1346 (N31E40 L= 92)  1115    213        1 ( 321/1266- 439/1436)  38.7 E44-E34 N25-N35
      3 1058 1377 (N21W08 L=140)  1122    343        1 ( 882/1332-1211/1411) -20.2 E02-W17 N17-N25
      4  704 1339 (N25E15 L=118)   521    186        1 ( 649/1268- 753/1406) -63.4 E17-E11 N19-N29
      5  193 1263 (N29E60 L= 72)  1685    198        1 ( 103/1220- 284/1303) -13.2 E82-E48 N24-N32
      6  649 1131 (N13E21 L=112)   939    271        2 ( 562/1037- 705/1232)  39.3 E27-E15 N08-N18
      7 1359 1200 (N05W22 L=155)   304     84        0 (1326/1153-1393/1232) -68.2 W20-W23 N02-N07
      8 1599 1104 (S04W36 L=169)   313     91        2 (1573/1066-1623/1131) -76.0 W34-W38 S06-S02
      9 1377 1074 (S02W21 L=153)   259     81        1 (1361/1042-1401/1104) -90.0 W20-W23 S03-N00
     10 1810  950 (S17W52 L=184)   872    148        1 (1786/ 885-1832/1012)  66.8 W50-W54 S20-S13
     11 1878  934 (S19W60 L=192)   702     75        0 (1851/ 897-1898/ 976)  38.7 W57-W63 S20-S16
     12 1729  869 (S20W44 L=176)   359     79        0 (1704/ 834-1747/ 920)  53.1 W41-W46 S22-S17
     13  316  857 (N03E49 L= 83)   286     62        1 ( 296/ 837- 344/ 879)   0.0 E50-E46 N01-N03
     14 1415  835 (S16W20 L=152)   270     69        0 (1384/ 809-1438/ 865)  33.7 W18-W22 S17-S14
     15  175  713 (S04E69 L= 63)  2863    231        9 ( 101/ 609- 226/ 797) -42.5 E82-E62 S10-N01
     16  263  769 (S02E56 L= 76)   385     78        2 ( 232/ 748- 287/ 796) -26.6 E58-E52 S03-N00
     17 1169  721 (S19W04 L=136)   188     68        0 (1143/ 698-1204/ 739)  14.0 W01-W05 S20-S18
     18  627  671 (S13E30 L=102)   366    160        0 ( 600/ 610- 664/ 728)  45.0 E32-E26 S16-S10
     19  269  685 (S07E59 L= 74)   338     63        1 ( 242/ 659- 294/ 709) -36.9 E60-E56 S08-S05
     20 1324  637 (S27W12 L=144)   403    140        1 (1256/ 622-1396/ 655) -11.3 W07-W17 S28-S25
     21 1407  310 (S54W17 L=150)   401     29        1 (1377/ 290-1430/ 329) -39.8 W14-W20 S56-S51
     22 1215  255 (S54E03 L=129)   979    170        0 (1140/ 215-1296/ 304)  13.2 E11-W06 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