Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  693 1630 (N51E05 L=147)   307     17        0 ( 678/1610- 712/1654) -90.0 E06-E02 N49-N53
      2 1037 1551 (N35W17 L=169)   365    141        1 ( 973/1529-1106/1568) -12.5 W12-W21 N32-N36
      3  225 1351 (N44E60 L= 92)   506     41        1 ( 201/1328- 248/1372) -18.4 E64-E54 N42-N45
      4 1824 1269 (S04W60 L=212)   373     36        1 (1807/1249-1844/1287)   9.5 W57-W63 S05-S03
      5 1673 1185 (S04W43 L=195)   361     57        1 (1657/1145-1692/1214)  56.3 W41-W45 S05-S01
      6 1366 1067 (S01W20 L=171)   691    130        2 (1289/1037-1430/1096) -12.5 W15-W24 S03-N00
      7  636 1049 (N16E22 L=130)   201     76        0 ( 595/1035- 677/1060) -21.8 E24-E19 N15-N17
      8  140  927 (N19E69 L= 82)  2440    142        5 (  91/ 880- 205/ 983) -22.4 E80-E60 N15-N22
      9 1479  765 (S22W20 L=171)   489    115        1 (1447/ 718-1498/ 839)  60.3 W17-W22 S24-S17
     10 1634  773 (S26W31 L=183)   688    164        1 (1570/ 732-1681/ 839)  16.7 W25-W36 S27-S23
     11  298  728 (N05E55 L= 96)   636    126        0 ( 264/ 679- 317/ 791)  45.0 E60-E52 N02-N08
     12 1219  716 (S17W03 L=154)   295    111        1 (1173/ 674-1254/ 757) -71.6 W01-W04 S19-S13
     13 1120  701 (S15E03 L=148)   254    107        1 (1098/ 669-1165/ 747)  63.4 E04-W00 S16-S12
     14  864  554 (S17E22 L=129)   582    287        0 ( 775/ 479- 960/ 653)  16.4 E30-E13 S20-S13
     15 1031  612 (S18E11 L=141)   202     70        0 (1016/ 581-1047/ 647)  63.4 E12-E09 S19-S15
     16 1351  597 (S28W08 L=159)   584    114        0 (1289/ 561-1408/ 637)   0.0 W03-W12 S29-S26
     17  576  561 (S10E40 L=112)  1682    412        2 ( 438/ 464- 710/ 620) -42.9 E49-E33 S18-S05
     18  463  515 (S10E50 L=101)   349     47        1 ( 437/ 490- 483/ 538)  26.6 E52-E48 S11-S09
     19  343  439 (S13E68 L= 83)  1331    125        1 ( 326/ 381- 359/ 501)  26.6 E81-E62 S17-S08
     20 1219  438 (S35E05 L=146)   591    119        1 (1178/ 395-1252/ 497)  35.5 E08-E01 S37-S31
     21  917  305 (S35E31 L=121)   423     97        1 ( 903/ 253- 936/ 357)  37.9 E35-E26 S38-S31
     22 1122  286 (S43E18 L=133)   855    181        2 (1054/ 257-1199/ 325)   0.0 E24-E11 S44-S39
     23  760  189 (S40E53 L= 98)   865     92        0 ( 744/ 141- 781/ 230)  26.6 E64-E48 S44-S36
     24  931  178 (S46E41 L=110)  2247    193        3 ( 844/ 129-1009/ 225) -48.4 E49-E33 S51-S39
     25 1068  174 (S51E32 L=119)   530     56        1 (1045/ 149-1094/ 201)  24.0 E37-E28 S53-S49
  

    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