Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1621 1171 (N00W40 L=240)  1403    288        1 (1559/1041-1717/1230)  14.9 W32-W48 S05-N02
      2  390 1174 (N29E40 L=160)   731    176        1 ( 302/1139- 465/1205)   0.0 E48-E33 N27-N30
      3 1870 1050 (S14W60 L=260)  1899    143        5 (1833/ 990-1916/1098)  13.0 W54-W67 S16-S11
      4  147 1044 (N24E69 L=131)  1543     84        2 (  94/1017- 188/1073)   3.0 E81-E62 N22-N25
      5 1836  961 (S18W54 L=254)  1653    223        4 (1771/ 914-1915/1020) -39.8 W46-W65 S23-S13
      6  483  987 (N16E34 L=166)   236    107        0 ( 429/ 964- 531/1008)   7.1 E38-E30 N15-N16
      7 1357  919 (S06W17 L=217)   231     90        0 (1326/ 883-1400/ 955)  21.8 W14-W19 S07-S05
      8 1826  882 (S23W52 L=252)   408     63        2 (1807/ 847-1842/ 913)  56.3 W50-W54 S24-S20
      9 1167  793 (S09W03 L=203)   686    195        1 (1136/ 711-1212/ 882)  73.3 W00-W05 S13-S03
     10  573  806 (N04E32 L=168)   231     65        0 ( 542/ 791- 613/ 820)   0.0 E34-E28 N03-N04
     11 1268  720 (S16W07 L=207)  1220    355        4 (1130/ 584-1379/ 806)  17.5 E04-W15 S21-S11
     12  246  736 (N05E61 L=139)   475     89        1 ( 224/ 704- 276/ 785) -59.0 E63-E58 N02-N07
     13 1489  749 (S20W22 L=222)   457    111        5 (1455/ 719-1523/ 785)   9.5 W18-W24 S21-S17
     14  709  670 (S06E27 L=173)   356     58        1 ( 680/ 636- 727/ 698) -90.0 E28-E25 S08-S04
     15  786  669 (S08E22 L=178)   309     48        1 ( 753/ 642- 808/ 688) -56.3 E23-E20 S09-S06
     16  709  569 (S13E30 L=170)  1497    282        5 ( 638/ 513- 795/ 628) -10.3 E35-E24 S16-S08
     17  690  478 (S18E35 L=166)  1313    297        1 ( 570/ 435- 823/ 523)  -9.5 E43-E25 S21-S14
     18  886  372 (S29E27 L=174)  1068    342        1 ( 780/ 280-1019/ 493)  17.7 E38-E13 S34-S24
     19  584  328 (S26E52 L=149)  2509    291        2 ( 512/ 209- 636/ 427)  50.2 E67-E46 S36-S18
     20  524  320 (S26E59 L=142)  2229    187        4 ( 463/ 254- 576/ 404)  59.7 E66-E53 S31-S19
     21  655  360 (S25E43 L=157)   345     48        1 ( 628/ 343- 679/ 384) -45.0 E45-E41 S26-S23
  

    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