Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1078 1702 (N49W21 L=180)  2117    386        2 ( 900/1661-1258/1735) -16.2 W04-W35 N43-N52
      2 1555 1677 (N35W62 L=221)  2227    248        3 (1441/1625-1650/1715)  -5.7 W46-W78 N31-N37
      3 1080 1561 (N39W15 L=174)   878    250        1 ( 972/1526-1199/1587) -17.4 W07-W23 N35-N42
      4 1763 1459 (N17W67 L=226)   885    124        0 (1728/1412-1804/1515) -82.9 W65-W69 N13-N21
      5  998 1332 (N25W03 L=162)   403    152        0 ( 927/1319-1075/1347)  -6.3 E01-W08 N24-N26
      6 1415 1322 (N17W30 L=189)   478    168        1 (1338/1281-1476/1344) -32.0 W25-W33 N13-N19
      7  188 1080 (N19E64 L= 95)  1376    277        1 ( 171/ 968- 221/1219) -65.0 E68-E59 N12-N27
      8 1349 1177 (N10W22 L=181)   305     99        0 (1302/1149-1391/1199)   8.1 W18-W25 N09-N10
      9 1106 1122 (N11W06 L=165)   652    278        1 (1014/1074-1218/1176)  -8.7 W01-W14 N08-N14
     10 1815 1033 (S08W56 L=215)  2033    324        8 (1757/ 925-1858/1164)  61.7 W49-W63 S15-S01
     11 1879 1004 (S12W63 L=222)  1845    208        7 (1843/ 927-1910/1104)  59.0 W58-W68 S16-S05
     12  508 1012 (N13E33 L=126)   611    188        1 ( 468/ 937- 535/1089) -90.0 E35-E31 N08-N17
     13 1614 1038 (S03W38 L=197)   286     37        1 (1587/1017-1644/1056) -11.3 W35-W40 S04-S01
     14 1194  960 (S00W09 L=168)   504    205        0 (1096/ 943-1283/ 986)  -5.2 W03-W14 S01-N01
     15 1758  916 (S14W48 L=207)   634    134        2 (1727/ 860-1808/ 966)  56.3 W45-W53 S16-S10
     16  630  899 (N05E26 L=133)   268     71        1 ( 603/ 874- 656/ 930) -45.0 E27-E24 N02-N06
     17 1340  774 (S14W15 L=174)   947    314        4 (1266/ 667-1427/ 868)  37.6 W09-W22 S19-S09
     18 1203  792 (S10W07 L=166)   791    163        3 (1160/ 743-1266/ 857)  63.4 W04-W10 S12-S06
     19 1859  781 (S25W62 L=221)  1643    141        4 (1809/ 736-1907/ 845)  13.0 W54-W70 S28-S22
     20  340  610 (S11E56 L=103)  3323    417        6 ( 236/ 490- 461/ 775) -64.7 E63-E48 S19-N00
     21  210  705 (S04E68 L= 91)   504     50        1 ( 192/ 685- 231/ 729) -36.9 E71-E65 S05-S02
     22 1147  698 (S15W02 L=161)   200    144        0 (1092/ 677-1215/ 723) -33.7 W00-W06 S17-S12
     23  517  591 (S13E41 L=118)  1255    323        4 ( 439/ 461- 591/ 709) -83.3 E44-E37 S22-S05
     24  396  635 (S09E50 L=109)   918    123        2 ( 354/ 578- 443/ 700) -71.6 E52-E47 S13-S04
     25 1402  552 (S30W18 L=177)   801    143        0 (1353/ 494-1446/ 609)  40.6 W13-W21 S33-S26
     26  448  441 (S23E55 L=104)   573     79        2 ( 429/ 401- 467/ 485)  36.9 E58-E50 S25-S19
     27  562  344 (S31E51 L=108)   540     59        0 ( 537/ 323- 594/ 365)   0.0 E53-E47 S32-S29
     28  974  233 (S47E23 L=136)  1499    301        1 ( 872/ 165-1068/ 314)  23.2 E39-E11 S53-S41
  

    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