Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1451 1626 (N27W49 L=359)   502     83        1 (1408/1608-1504/1643)  -6.3 W45-W54 N25-N28
      2 1511 1519 (N20W46 L=356)   407     40        2 (1479/1496-1536/1539) -45.0 W44-W49 N17-N21
      3 1026 1410 (N28W11 L=321)   758    176        1 ( 943/1380-1100/1437) -10.3 W05-W16 N26-N29
      4  990 1347 (N26W07 L=317)   740    234        3 ( 886/1318-1075/1376) -35.0 W01-W11 N22-N29
      5  714 1317 (N31E11 L=299)   379     91        1 ( 662/1298- 758/1337)   0.0 E15-E07 N30-N32
      6  348 1300 (N40E42 L=268)   375     70        0 ( 310/1284- 387/1315) -20.6 E46-E38 N37-N41
      7 1751 1203 (S04W51 L=  0)   495    126        0 (1732/1144-1774/1262)  29.7 W47-W54 S07-S02
      8 1756 1081 (S11W47 L=357)  1684    268        3 (1701/ 971-1808/1205)  33.7 W39-W55 S15-S05
      9  631 1095 (N21E21 L=288)   993    234        2 ( 521/1067- 748/1118) -10.6 E29-E13 N17-N22
     10 1854 1075 (S15W57 L=  7)   731     73        1 (1818/1042-1883/1107) -39.8 W53-W60 S17-S12
     11  425 1003 (N20E38 L=272)   402     65        0 ( 403/ 970- 455/1034)  21.8 E40-E35 N18-N21
     12  441  845 (N11E40 L=270)  1310    225        3 ( 392/ 738- 500/ 933) -85.6 E42-E37 N03-N16
     13 1324  828 (S12W12 L=321)   729    235        3 (1251/ 739-1409/ 898)  17.1 W05-W18 S15-S09
     14 1483  700 (S24W19 L=329)  1207    456        0 (1396/ 492-1552/ 874)  48.0 W08-W26 S35-S15
     15  280  738 (N07E57 L=252)   710    103        1 ( 249/ 704- 316/ 782) -45.0 E59-E54 N04-N09
     16  214  700 (N06E67 L=243)   812     97        1 ( 201/ 647- 234/ 749)  56.3 E71-E63 N02-N08
     17  425  532 (S07E53 L=257)   313     24        0 ( 408/ 511- 441/ 555) -90.0 E54-E50 S08-S05
     18  943  498 (S21E19 L=290)   584     86        2 ( 912/ 456- 975/ 534)  18.4 E22-E16 S23-S18
     19  572  375 (S20E50 L=260)  2117    412        2 ( 475/ 289- 650/ 499)  34.4 E62-E39 S26-S12
     20  507  444 (S14E51 L=259)  1213    201        2 ( 453/ 391- 593/ 480)   0.0 E57-E42 S17-S11
     21  896  417 (S25E26 L=284)   240     46        1 ( 877/ 389- 912/ 442)  78.7 E26-E24 S27-S22
     22 1600  361 (S56W27 L=337)   640     80        3 (1571/ 337-1633/ 390) -28.6 W22-W33 S60-S52
     23  844  188 (S41E46 L=264)  1249    168        0 ( 804/ 132- 881/ 263)  23.5 E58-E35 S46-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